1 Q=PEEK(186):POKE820,Q:QA=PEEK(821):ONQAGOTO4,8
2 REM---KHT-BSKATZE05--210701---
3 B=53280:PRINT"[147]":POKEB,0:POKEB+1,11:GOTO100
4 POKE821,2:LOAD"MSBSKATZE05*",Q,1
8 POKE45,0:POKE46,40:CLR:GOTO110
61 CY=INT(C/100):CX=C-(CY*100)
62 POKE211,CX:POKE214,CY:SYS58640:RETURN
68 LC=INT(L/100):LL=L-(LC*100)
69 FORX=LCTOLL:POKE781,X:SYS59903:NEXT:RETURN
100 GOSUB120:FORI=0TO1000:NEXT
102 PRINTTAB(10)"[152]DATEN WERDEN GELADEN"
104 PRINTTAB(14)"[144]BITTE WARTEN[152][145]":POKE821,1:GOTO1
110 L=720:GOSUB68:C=2100:GOSUB61
112 PRINTTAB(10)"[144]WEITER MIT  <RETURN>[152]"
114 R$="":GETR$:ON-(R$<>CHR$(13))GOTO114:GOTO150
120 PRINTTAB(12)"[158]BILDSCHIRM-KATZE"
122 PRINTTAB(12)"[155]2001  VON KAHATE":RETURN
150 L=724:GOSUB68
210 Z=RND(-TI):Z1=INT(RND(1)*2)
220 Z2=INT(RND(1)*15)
230 IFZ1>0ANDZ2>11THEN220
240 POKE822,Z1:POKE823,Z2
250 POKE824,109:POKE825,112
300 SYS7680:REM ---PRGSTART---
310 L=724:GOSUB68:I=0
410 R$="":GETR$:IFR$=CHR$(13)THEN150
420 IFR$="T"THEN500
430 IFR$="F"THEN600
440 IFR$=CHR$(95)THEN990
450 I=I+1:ON-(I=50)GOTO460
452 ON-(I>=200)GOTO150:GOTO410
460 C=2100:GOSUB61
462 PRINTTAB(6)"[144]NAECHSTE KATZE MIT  [152]<RETURN>"
464 PRINTTAB(10)"[144]MAXIMUM 10 MAL  ODER"
466 PRINTTAB(10)"[155]T[144]EMPO  [155]F[144]ARBE  [155]_[144]=ENDE[145][145][145]"
468 GOTO410
500 PRINT"[147]":TE$=""
510 PRINTTAB(10)"[152]BITTE TEMPO EINGEBEN"
512 PRINTTAB(10)"NORMALES TEMPO  = 24"
514 PRINTTAB(10)"MEHR     = LANGSAMER"
516 PRINTTAB(10)"WENIGER  = SCHNELLER"
518 PRINTTAB(7)"[144]ABSCHLIESSEN MIT  <RETURN>"
520 PRINTTAB(12)"[155]EINGABE:       [157][157][157][158]";
522 POKE19,1:INPUTTE$:POKE19,0:PRINT
524 TE=VAL(TE$):IFTE=0THEN990
526 IFTE<1ORTE>50THEN580
530 POKE7694,TE:PRINT"[147]":GOSUB120:GOTO150
580 TE$="":PRINT"[145][145][145][145]":GOTO520
600 PRINT"[147]":FA$=""
610 PRINTTAB(10)"[152]BITTE FARBE EINGEBEN"
612 PRINTTAB(10)"NORMALE  FARBE  =  1"
614 PRINTTAB(10)"0 =SCHWARZ  1 =WEISS"
616 PRINTTAB(10)"2-15 = ANDERE FARBEN"
618 PRINTTAB(7)"[144]ABSCHLIESSEN MIT  <RETURN>"
620 PRINTTAB(12)"[155]EINGABE:       [157][157][157][158]";
622 POKE19,1:INPUTFA$:POKE19,0:PRINT
624 FA=VAL(FA$)
626 IFFA<0ORFA>15THEN680
630 POKE7960,FA:PRINT"[147]":GOSUB120:GOTO150
680 FA$="":PRINT"[145][145][145][145]":GOTO620
990 POKE198,0:POKE821,0:PRINT"[147][151]":Z=0
992 R$="":GETR$:ON-(R$<>"")GOTO999
994 Z=Z+1:FORI=0TO100:NEXT
996 IFZ>=25THENSYS64738
998 GOTO992
999 PRINT"[152]":END